home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 21
/
Cream of the Crop 21 (Terry Blount) (October 1996).iso
/
program
/
multlang.zip
/
DTC.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-12-14
|
1KB
|
54 lines
unit Dtc;
interface
uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
StdCtrls, Mask, SysUtils, Mcombbox, MultLang, ExtCtrls, Dialogs;
type
TDTCDlg = class(TForm)
Label1: TLabel;
Label3: TLabel;
LabelLongDate: TLabel;
LabelLongTime: TLabel;
MultLang1: TMultLang;
Label2: TLabel;
LabelCurrency: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Bevel1: TBevel;
Bevel2: TBevel;
procedure MultLang1Translated(Sender: TObject; LanguageName: String;
Successful: Boolean);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DTCDlg: TDTCDlg;
implementation
{$R *.DFM}
procedure TDTCDlg.MultLang1Translated(Sender: TObject;
LanguageName: String; Successful: Boolean);
var AValue:Extended;
begin
LabelLongTime.Caption:=FormatDateTime('tt', Now);
LabelLongDate.Caption:=FormatDateTime('dddddd', Now);
AValue:=1234567.50;
LabelCurrency.Caption:=Format('%m', [AValue]);
end;
procedure TDTCDlg.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
end.